/* GUI CONVERTED from rsrp03.i (converter v1.75) Tue Nov  7 07:30:12 2000 */
/* rsrp03.i - Release Management Supplier Schedules                     */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*F0PN*/ /*V8:ConvertMode=Report                                        */
/* REVISION: 7.0    LAST MODIFIED: 01/29/92           BY: WUG *F110*    */
/* REVISION: 7.3    LAST MODIFIED: 12/18/92           BY: WUG *G462*    */
/* REVISION: 7.3    LAST MODIFIED: 10/22/95           BY: vrn *G0YF*    */
/* REVISION: 8.6    LAST MODIFIED: 10/10/97           BY: GYK *K0MS*    */
/* REVISION: 8.6E   LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane      */
/* REVISION: 8.6E   LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan     */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00   BY: *N0KP* myb            */
/* REVISION: 9.1    LAST MODIFIED: 09/11/00   BY: *N0RT* Mudit Mehta    */

/* SCHEDULE AUTHORIZATION SUMMARY INCLUDE */

/* ********** Begin Translatable Strings Definitions ********* */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

&SCOPED-DEFINE rsrp03_i_1 "Effective!End"
/* MaxLen: Comment: */

&SCOPED-DEFINE rsrp03_i_2 "Effective!Start"
/* MaxLen: Comment: */

/*N0RT*
 * &SCOPED-DEFINE rsrp03_i_3 "High Authorizations:"
 * /* MaxLen: Comment: */
 *N0RT*/

/* ********** End Translatable Strings Definitions ********* */

         if first-of(sch_nbr) then do:
            {gprun.i ""rsrp03a.p"" "(input recid(pod_det))"}
            hifab_qty = 0.
            hiraw_qty = 0.
         end.

/*K0MS*
disp *K0MS*/
/*K0MS*/ display
            sch_rlse_id
/*G0YF*     sch_eff_start */
/*G0YF*     sch_eff_end  */
/*G0YF*/    sch_eff_start column-label {&rsrp03_i_2}
/*G0YF*/    sch_eff_end column-label {&rsrp03_i_1}
            space(4)
            sch_fab_qty
            sch_fab_strt
            sch_fab_end
            space(4)
            sch_raw_qty
            sch_raw_strt
            sch_raw_end
         with width 132 STREAM-IO /*GUI*/ .

         if sch_raw_qty > hiraw_qty then do:
            hiraw_qty = sch_raw_qty.
            hiraw_strt = sch_raw_strt.
            hiraw_end = sch_raw_end.
            hiraw_rlse_id = sch_rlse_id.
         end.

         if sch_fab_qty > hifab_qty then do:
            hifab_qty = sch_fab_qty.
            hifab_strt = sch_fab_strt.
            hifab_end = sch_fab_end.
            hifab_rlse_id = sch_rlse_id.
         end.

         if last-of(sch_nbr) then do:
            down 2.

/*K0MS*     disp "High Authorizations:" @ sch_rlse_id. *K0MS*/
/*N0RT* /*K0MS*/ display {&rsrp03_i_3} @ sch_rlse_id. */
/*N0RT*/    display getTermLabel("HIGH_AUTHORIZATIONS",28) + ":" @ sch_rlse_id WITH STREAM-IO /*GUI*/ .
            down 1.

/*K0MS*     disp */
/*K0MS*/    display
               hifab_rlse_id @ sch_rlse_id
               hifab_qty @ sch_fab_qty
               hifab_strt @ sch_fab_strt
               hifab_end @ sch_fab_end WITH STREAM-IO /*GUI*/ .

            down 1.

/*K0MS*     disp */
/*K0MS*/    display
               hiraw_rlse_id @ sch_rlse_id
               hiraw_qty @ sch_raw_qty
               hiraw_strt @ sch_raw_strt
               hiraw_end @ sch_raw_end WITH STREAM-IO /*GUI*/ .

            page.

         end.
